home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / which glue (.txt) < prev   
Encoding:
Commodore BASIC  |  1986-01-01  |  5.5 KB  |  121 lines
  1. 10 rem***********************
  2. 20 rem*whichglue?*
  3. 30 rem*bysandysmith*
  4. 40 rem*11september1983*
  5. 50 rem***********************
  6. 60 vt$="":goto120
  7. 70 rem*subroutines*
  8. 80 printspc(20-len(a$)/2)a$:return
  9. 90 print"[147]"m$(c1);" [193][206][196] ";m$(c2):print
  10. 92 print"[195][193][206] [194][197] [199][204][213][197][196] [212][207][199][197][212][200][197][210] [215][201][212][200]:":print:print:return
  11. 100 print:print:print:print"[206][207][212][197]: [211][207][205][197] [208][204][193][211][212][201][195][211] [193][210][197] [196][201][198][198][201][195][213][204][212] [212][207]"
  12. 102 printspc(7)"[199][204][213][197] [212][207] [211][213][210][198][193][195][197][211] [215][201][212][200] [193][206][217] [212][217][208][197]"
  13. 104 printspc(7)"[207][198] [193][196][200][197][211][201][214][197].":return
  14. 110 rem*titlepage*
  15. 120 print"[147]":a$="[215][200][201][195][200] [199][204][213][197]?":gosub80:print
  16. 122 a$="[194][217] [211][193][206][196][217] [211][205][201][212][200]":gosub80:print
  17. 130 print:print"  [212][200][201][211] [208][210][207][199][210][193][205] [215][201][204][204] [208][210][207][214][201][196][197] [217][207][213] [215][201][212][200] [193]":print
  18. 132 print"[204][201][211][212] [207][198] [199][204][213][197][211] [212][200][193][212] [195][193][206] [194][197] [213][211][197][196] [212][207] [211][212][201][195][203]":print
  19. 134 print"[212][215][207] [205][193][212][197][210][201][193][204][211] [212][207][199][197][212][200][197][210].  [198][207][210] [201][206][198][207][210][205][193][212][201][207][206]"
  20. 140 print"[207][206] [212][200][197] [199][204][213][201][206][199] [208][210][207][208][197][210][212][201][197][211] [193][206][196] [207][212][200][197][210]":print
  21. 142 print"[198][193][195][212][207][210][211] [207][198] 10 [194][193][211][201][195] [203][201][206][196][211] [207][198] [193][196][200][197][211][201][214][197][211],":print
  22. 144 print"[210][213][206] [212][200][197] [208][210][207][199][210][193][205] [195][193][204][204][197][196] ";chr$(34);"[199][204][213][197] [199][213][201][196][197]";chr$(34)"."
  23. 150 print:print"    [212][200][197] [201][206][198][207][210][205][193][212][201][207][206] [201][211] [198][210][207][205] [212][200][197] [202][213][206][197] 21,"
  24. 152 print"1983 [201][211][211][213][197] [207][198] [198][193][205][201][204][217] [195][201][210][195][204][197] [205][193][199][193][218][201][206][197]."
  25. 160 printvt$"        [208][210][197][211][211] [193][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197].";:poke198,0:wait198,1
  26. 170 rem*initialization*
  27. 180 dimgl$(11),m$(10):b$=chr$(7):fori=1to11:readgl$(i):nexti
  28. 190 fori=1to10:readm$(i):nexti
  29. 200 rem*theselection*
  30. 210 print"[147]":print" [211][197][204][197][195][212] [207][206][197] [205][193][212][197][210][201][193][204] [198][210][207][205] [197][193][195][200] [195][207][204][213][205][206]."
  31. 220 print"":fori=1to10:
  32. 230 print"[157]"i-1;"[157].";m$(i);
  33. 232 printspc(17-len(m$(i)))chr$(i+64);".";m$(i);:ifi<>10thenprint
  34. 240 nexti:printspc(6)"([198][207][210][205][201][195][193])";
  35. 242 printspc(10)"([198][207][210][205][201][195][193])"
  36. 250 c1$="":printleft$(vt$,22):print"[195][200][207][201][195][197] [198][210][207][205] [195][207][204][213][205][206] 1      [157][157][157][157][157] "
  37. 251 print"[145][145][145][145]"spc(5)"^";:poke198,0:wait198,1:getc1$:ifc1$<"0"orc1$>"9"then250
  38. 252 c1=val(c1$)+1:ifc1<1orc1>10then250
  39. 260 c2$="":printleft$(vt$,22):print"[195][200][207][201][195][197] [198][210][207][205] [195][207][204][213][205][206] 2      [157][157][157][157][157] "
  40. 261 print"[145][145][145][145]      "spc(20)"^":poke198,0:wait198,1:getc2$:ifc2$<"a"orc2$>"j"then260
  41. 262 c2=asc(c2$+chr$(0))
  42. 270 c2=c2-64:ifc2<1orc2>10then260
  43. 280 onc1goto290,300,310,320,330,340,350,360,370,380:rem1stcolumnselection
  44. 290 onc2goto400,410,420,430,440,450,460,470,480,490:remwood
  45. 300 onc2goto410,500,510,520,530,540,460,550,560,570:remglass
  46. 310 onc2goto420,510,510,580,590,600,610,620,630,630:remrubber
  47. 320 onc2goto430,520,580,640,650,660,670,680,690,690:remmetal
  48. 330 onc2goto440,530,590,650,700,710,710,720,730,730:remleather
  49. 340 onc2goto450,540,600,660,710,740,750,760,770,770:remhardplastic
  50. 350 onc2goto460,460,610,670,710,750,460,460,460,460:remsoftplastic
  51. 360 onc2goto470,550,620,680,720,760,460,780,780,790:remvinyltile
  52. 370 onc2goto480,560,630,690,730,770,460,780,800,800:remceramictile
  53. 380 onc2goto490,570,630,690,730,770,460,810,800,820:remformica
  54. 390 rem*?theglues*
  55. 400 gosub90:printgl$(8):printgl$(1):printgl$(4):printgl$(5):printgl$(9)
  56. 402 printgl$(2):printgl$(6):printgl$(7):goto840:remwood/wood
  57. 410 gosub90:printgl$(4):printgl$(5):printgl$(2):printgl$(10):printgl$(6):goto840:remwood/glass
  58. 420 gosub90:printgl$(2):printgl$(9):printgl$(10):goto840:remwood/rubber
  59. 430 gosub90:printgl$(2):printgl$(6):printgl$(10):printgl$(4):printgl$(5):goto840:remwood/metal
  60. 440 gosub90:printgl$(8):printgl$(2):printgl$(10):printgl$(6):printgl$(9):printgl$(7):goto840:remwood
  61. 450 gosub90:printgl$(2):fori=4to6:printgl$(i):nexti:gosub100:goto840:remwood/hardplastic
  62. 460 gosub90:printgl$(9):printgl$(2):printgl$(6):gosub100:goto840:remwood/softplastic
  63. 470 gosub90:printgl$(11):printgl$(2):printgl$(6):gosub100:goto840:remwood/vinyltile
  64. 480 gosub90:printgl$(4):printgl$(5):printgl$(10):printgl$(7):printgl$(6):printgl$(2):goto840:remwood
  65. 490 gosub90:printgl$(2):printgl$(1):printgl$(10):printgl$(8):printgl$(6)
  66. 492 printgl$(4):printgl$(5):printgl$(7):goto840:remwood/formica
  67. 500 gosub90:fori=3to6:printgl$(i):nexti:goto840:remglass/glass
  68. 510 gosub90:printgl$(3):printgl$(9):printgl$(2):printgl$(10):goto840:remglass/rubber
  69. 520 gosub90:printgl$(3):printgl$(2):printgl$(6):printgl$(10):printgl$(4):printgl$(5):goto840:remglass
  70. 530 gosub90:printgl$(3):printgl$(2):printgl$(10):printgl$(9):printgl$(6):printgl$(7):goto840:remglass
  71. 540 gosub90:printgl$(4):printgl$(5):printgl$(3):printgl$(6):gosub100:goto840:remglass
  72. 550 gosub90:printgl$(2):printgl$(7):printgl$(11):printgl$(6):printgl$(3):gosub100:goto840:remglass
  73. 560 gosub90:printgl$(4):printgl$(5):printgl$(10):printgl$(7):printgl$(6):printgl$(3):goto840:remglass
  74. 570 gosub90:fori=2to6:printgl$(i):nexti:printgl$(10):goto840:remglass/formica
  75. 580 gosub90:printgl$(10):printgl$(3):goto840:remrubber/metal
  76. 590 gosub90:printgl$(3):printgl$(2):printgl$(10):printgl$(9):goto840:remrubber/leather
  77. 600 gosub90:printgl$(3):printgl$(2):printgl$(9):gosub100:goto840:remrubber/hardplastic
  78. 610 gosub90:printgl$(9):printgl$(2):gosub100:goto840:remrubber/softplastic
  79. 620 gosub90:printgl$(9):printgl$(2):printgl$(11):printgl$(3):gosub100:goto840:remrubber/vinyl
  80. 630 gosub90:printgl$(2):printgl$(9):printgl$(3):printgl$(10):goto840:remrubber/ceramictile
  81. 640 gosub90:fori=3to5:printgl$(i):nexti:printgl$(10):printgl$(2):printgl$(6):goto840:remmetal
  82. 650 gosub90:printgl$(3):printgl$(10):printgl$(2):printgl$(6):goto840:remmetal/leather
  83. 660 gosub90:printgl$(2):printgl$(4):printgl$(5):printgl$(3):gosub100:goto840:remmetal/hplastic
  84. 670 gosub90:printgl$(2):printgl$(6):gosub100:goto840:remmetal/softplastic
  85. 680 gosub90:printgl$(2):printgl$(6):printgl$(3):gosub100:goto840:remmetal/vinyltile
  86. 690 gosub90:printgl$(2):printgl$(6):printgl$(10):printgl$(3):printgl$(4):printgl$(5):goto840:remmetal
  87. 700 gosub90:printgl$(2):printgl$(10):printgl$(9):printgl$(6):goto840:remleather/leather
  88. 710 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(3):gosub100:goto840:remleather
  89. 720 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(3):printgl$(11):gosub100:goto840:remleather
  90. 730 gosub90:printgl$(2):printgl$(10):printgl$(9):printgl$(6):printgl$(3):goto840:remleather/ceram
  91. 740 gosub90:printgl$(4):printgl$(5):printgl$(3):printgl$(2):printgl$(6):printgl$(9):gosub100:goto840
  92. 750 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(4):printgl$(5):gosub100:goto840
  93. 760 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(3):gosub100:goto840:remplastic/vinyl
  94. 770 gosub90:printgl$(2):printgl$(9):printgl$(6):printgl$(4):printgl$(5):printgl$(3):gosub100:goto840
  95. 780 gosub90:printgl$(11):printgl$(2):printgl$(9):printgl$(6):printgl$(3):gosub100:goto840:remvi/vi
  96. 790 gosub90:printgl$(11):printgl$(2):printgl$(9):printgl$(6):printgl$(3):printgl$(7):gosub100:goto840
  97. 800 gosub90:printgl$(3):printgl$(10):printgl$(2):printgl$(4):printgl$(5):printgl$(6):printgl$(9):printgl$(7)
  98. 802 goto840:remceramictile/ceramictileorformica
  99. 810 gosub90:printgl$(11):printgl$(2):printgl$(9):printgl$(6):printgl$(3):printgl$(7):gosub100:goto840
  100. 820 gosub90:printgl$(2):printgl$(4):printgl$(5):printgl$(3):printgl$(10):printgl$(6):printgl$(7)
  101. 830 rem*end*
  102. 840 print"[196]o you want another selection (y/n)?";
  103. 841 poke198,0:wait198,1:getq$:ifq$<>"y"andq$<>"n"then841
  104. 842 ifq$="n"thenf$="glue guide":goto60000
  105. 850 ifq$<>"y"then840
  106. 860 goto210
  107. 870 rem*glue/materialdata*
  108. 880 data "[195][193][211][197][201][206] [199][204][213][197]","[195][207][206][212][193][195][212] [195][197][205][197][206][212]"
  109. 882 data "[195][217][193][206][207][193][195][210][217][204][193][212][197] (instant glue)","[197][208][207][216][217] (fast)"
  110. 884 data "[197][208][207][216][217] (slow)","[200][207][213][211][197][200][207][204][196][160][195][197][205][197][206][212]"
  111. 886 data "[205][193][211][212][201][195]","[208][207][204][217][214][201][206][217][204] (white)","[210][213][194][194][197][210][160][195][197][205][197][206][212]"
  112. 888 data "[211][201][204][201][195][207][206][197] (caulk)","[208][204][193][211][212][201][195][160][210][197][211][201][206]"
  113. 890 data"[215][207][207][196]","[199][204][193][211][211]/[195][200][201][206][193]","[210][213][194][194][197][210]","[205][197][212][193][204]","[204][197][193][212][200][197][210]"
  114. 892 data "[200][193][210][196][160][208][204][193][211][212][201][195]","[211][207][198][212] [208][204][193][211][212][201][195]","[214][201][206][217][204][160][212][201][204][197]","[195][197][210][193][205][201][195][160][212][201][204][197]"
  115. 894 data "[208][204][193][211][212][201][195] [204][193][205][201][206][193][212][197]"
  116. 900 rem
  117. 60000 rem  run a program
  118. 60010 print"[147]load f$,8"
  119. 60020 print"run"
  120. 60030 poke631,13:poke632,13:poke198,2:end
  121.